home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
olrdrs
/
qwkndt1a.zip
/
WWIVQWK.SCR
< prev
Wrap
Text File
|
1992-11-06
|
2KB
|
64 lines
# Sample script for logging on to a WWIV board running QWKmod.
# replace YOURNAME, YOURPASS, and YOURPHONE with your name or handle,
# your password, and the last four digits of your phone number.
# This is only a model, and will probably need to be modified to
# some degree. Assumes QWKmod can be accessed directly from the
# logon screen. If not, see the sample script for WWIVMAIL for
# accessing chains. Also assumes that you have a default protocol
# set on the WWIV board.
#
TIMEOUT 10
# Send space to abort logon screen.
send " "
# Wait for NN: prompt. If we don't get it, send <space><enter> until we do.
EXPECT "NN:" " \r" 5
# Send username.
send "YOURNAME\r"
# Wait for password prompt.
expect "PW:"
# Send password.
send "YOURPASS\r"
# Wait for phone number prompt.
expect "PH:"
# Send phone number.
send "YOURPHONE\r"
# Wait for option to run QWK reader or log on normally.
expect "gon]:"
# Send Y to run QWK reader.
send "Y"
# Optional section, only executed if a .REP packet is waiting.
repbegin
# Wait for QWK prompt.
expect "lp]:"
# Choose upload command.
send "U"
# Wait for upload protocol prompt.
expect "em) :"
# Send return (to choose default).
send "\r"
# Upload .REP file.
upload
repend
# End of optional section.
# Wait for .QWK prompt.
expect "lp]:"
# Choose download command.
send "D"
# Takes quite a while to pack messages, if there are a lot of them.
# Bump up timeout accordingly.
timeout 240
# Wait for download protocol prompt.
expect "em) :"
# Choose default protocol.
send "\r"
# Download .QWK packet
download
# Wait for "Mark messages as read?" prompt.
expect "ead?"
# Yes, mark them as read.
send "Y"
# Wait for .QWK prompt again
expect "lp]:"
# Quit
send "Q"